Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  524 1593 (N56E27 L=181)   417     47        1 ( 505/1567- 557/1615)   0.0 E29-E22 N54-N58
      2  191 1210 (N35E64 L=143)   675     86        2 ( 157/1182- 228/1243)  10.3 E71-E59 N33-N37
      3  341 1196 (N32E45 L=163)   318     83        1 ( 308/1181- 392/1212) -18.4 E48-E39 N30-N33
      4 1462 1083 (S01W27 L=234)   415    133        0 (1402/1065-1528/1100) -12.5 W22-W31 S02-N01
      5 1611  822 (S20W31 L=239)   711    259        0 (1522/ 715-1686/ 891)  18.4 W22-W38 S24-S17
      6 1039  815 (S05E04 L=203)   190     81        0 (1020/ 781-1059/ 845) -78.7 E05-E03 S07-S02
      7 1655  731 (S27W34 L=241)   748    202        1 (1617/ 642-1686/ 820)  51.3 W29-W37 S32-S22
      8  973  528 (S21E16 L=192)  1242    452        3 ( 814/ 423-1092/ 664)  18.4 E29-E05 S24-S14
      9  463  422 (S17E57 L=151)   823     80        2 ( 444/ 379- 493/ 460)  39.8 E60-E53 S19-S14
     10 1341  393 (S41W03 L=211)   410     80        0 (1307/ 366-1384/ 424)   8.1 W00-W07 S43-S39
     11  433  343 (S22E69 L=139)   672     66        1 ( 403/ 328- 466/ 364) -26.6 E73-E64 S23-S20
     12  685  312 (S29E46 L=162)   568    126        2 ( 633/ 282- 735/ 339)   9.5 E52-E40 S30-S26
     13 1106  243 (S46E21 L=187)   367     63        1 (1069/ 233-1141/ 257) -18.4 E23-E17 S47-S44
  

    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