Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  531 1589 (N39E42 L=236)   468    110        2 ( 504/1545- 554/1622) -50.2 E45-E39 N35-N41
      2  591 1550 (N36E36 L=243)   392    114        2 ( 556/1521- 628/1574) -23.2 E39-E32 N34-N37
      3  991 1484 (N33E03 L=275)   219     43        1 ( 964/1466-1018/1506)  26.6 E05-E01 N31-N34
      4  798 1344 (N23E16 L=262)   286     86        0 ( 755/1314- 839/1365)  31.0 E18-E13 N20-N24
      5  262 1287 (N17E58 L=220)  1302    321        7 ( 210/1229- 325/1333) -18.4 E65-E50 N13-N19
      6  677 1233 (N15E23 L=255)   734    174        3 ( 646/1152- 710/1314) -68.2 E25-E20 N10-N20
      7  846 1197 (N13E12 L=267)   598    181        1 ( 774/1139- 906/1287)  48.8 E16-E08 N09-N19
      8  142 1169 (N08E73 L=205)  1940    279        5 ( 122/1109- 172/1239) -82.9 E78-E68 N04-N12
      9  749  853 (S08E17 L=261)   502    174        0 ( 705/ 799- 811/ 887) -18.4 E19-E13 S11-S05
     10 1091  661 (S20W05 L=283)  1293    384        3 ( 970/ 549-1166/ 808)  55.5 E02-W09 S27-S09
     11  790  709 (S17E15 L=264)   499    163        3 ( 718/ 675- 859/ 739)   0.0 E19-E10 S19-S15
     12  348  647 (S23E50 L=229)   976    345        5 ( 285/ 567- 403/ 736)  40.6 E57-E43 S29-S16
     13  209  683 (S22E65 L=214)  1225    182        4 ( 179/ 633- 240/ 711) -68.2 E69-E60 S25-S20
     14  767  565 (S27E17 L=261)   285    111        1 ( 740/ 525- 786/ 617)  56.3 E19-E15 S29-S23
     15  492  398 (S42E45 L=234)  1555    344        2 ( 423/ 363- 572/ 474)  28.8 E54-E34 S45-S34
  

    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