Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  754 1492 (N41E09 L=352)  1444    289        1 ( 658/1433- 884/1575) -43.2 E16-W00 N34-N49
      2 1166 1343 (N23W16 L= 16)   289    130        0 (1147/1291-1193/1393)  74.1 W14-W18 N18-N25
      3  230 1291 (N36E62 L=299)  1573    154        3 ( 166/1235- 287/1336) -15.3 E77-E53 N32-N39
      4  414 1142 (N24E39 L=321)   940    186        4 ( 338/1084- 466/1198) -36.0 E46-E35 N20-N28
      5 1744  942 (S14W46 L= 46)   548     90        0 (1718/ 887-1769/ 989)  56.3 W43-W48 S17-S11
      6  553  952 (N11E31 L=330)   306     93        0 ( 517/ 920- 594/ 971)  18.4 E33-E27 N09-N11
      7  835  716 (S08E17 L=343)   238     91        0 ( 820/ 670- 857/ 753)  51.3 E19-E15 S10-S05
      8  788  672 (S09E21 L=339)   247     73        0 ( 756/ 652- 823/ 691) -33.7 E22-E19 S11-S07
      9  717  616 (S12E27 L=333)   312    121        1 ( 660/ 583- 769/ 658)  12.5 E31-E22 S13-S09
     10 1415  551 (S31W16 L= 16)   250    110        0 (1360/ 540-1462/ 562) -14.0 W11-W19 S31-S29
     11  885  514 (S21E20 L=341)   250     62        1 ( 867/ 480- 902/ 551)  45.0 E21-E17 S23-S18
     12 1255  427 (S36W02 L=  3)   502     79        1 (1212/ 407-1296/ 450)  -9.5 E01-W05 S37-S34
     13  925  331 (S35E24 L=336)   566    124        1 ( 905/ 276- 947/ 396)  48.4 E28-E20 S39-S30
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y